(mail): Ask a different question, if buffer is visiting a file.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index a200e9a2d8335fa80217b128decdb58047349789..19cfb4864e5f8e5045ba3e9a2e108dfdcac2718a 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1241,7 +1241,9 @@ The seventh argument ACTIONS is a list of actions to take
   (let (initialized)
     (and (not noerase)
         (or (not (buffer-modified-p))
-            (y-or-n-p "Unsent message being composed; erase it? "))
+            (if buffer-file-name
+                (y-or-n-p "Buffer is modified; erase it and reinitialize? ")
+              (y-or-n-p "Unsent message being composed; erase it? ")))
         (let ((inhibit-read-only t))
           (erase-buffer)
           (mail-setup to subject in-reply-to cc replybuffer actions)